00100	BEGIN "CRAP"
00200	STRING FILE;
00300	DEFINE CRLF="'15&'12";
00400	INTEGER I,CNT,BRK,EOF;
00500	BOOLEAN FAIL;
00600	LABEL START;
00700	
00800	START:	OUTSTR("FILE NAME = ");
00900		FILE←INCHWL;
01000		OPEN(1,"DSK",'10,12,0,CNT,BRK,EOF);
01050		OPEN(2,"DSK",'10,0,12,CNT,BRK,EOF);
01100		LOOKUP(1,FILE,FAIL);
01200		IF FAIL THEN
01300		BEGIN "FNF"
01400			OUTSTR("FILE NOT FOUND"&CRLF);
01500			GO TO START;
01600		END "FNF";
01700		ENTER(2,FILE,FAIL);
01800		IF FAIL THEN USERERR(0,0,"CAN'T ENTER FILE");
01900		WHILE ¬EOF DO
02000			FOR I←1 STEP 1 UNTIL 128 DO
02100				IF I≠1 THEN WORDOUT(2,WORDIN(1))
02150				ELSE WORDIN(1);
02200		CLOSE(1);
02300		RELEASE(1);
02310		CLOSE(2);
02320		RELEASE(2);
02400		OUTSTR("MERRY XMAS TO ALL AND TO ALL A GOOD NITE"&CRLF);
02500	
02600	END;END;END;END;END;